home *** CD-ROM | disk | FTP | other *** search
/ Corrections in America -…uction (Student Resource) / Allen.iso / pc / content / mpage.dxr / 00002_Module setup.ls < prev    next >
Encoding:
Text File  |  2005-12-16  |  11.2 KB  |  198 lines
  1. global gMovieProperties, gModuleProperties
  2.  
  3. on ModuleSetup
  4.   cChapter = gMovieProperties.pCurrentChapter
  5.   cChapterItem = gMovieProperties.pCurrentChapterItem
  6.   put "mVideoSkills: ModuleSetup()"
  7.   stageWidth = the stageRight - the stageLeft
  8.   stageHeight = the stageBottom - the stageTop
  9.   horizontalTextSpacing = 10
  10.   verticalTextSpacing = 62
  11.   textBoxWidth = 740
  12.   currentSprite = 11
  13.   backgroundSprite = 1
  14.   scrollingElementWidth = 22
  15.   sprite(backgroundSprite).member = "screen1"
  16.   PlaceTitle(currentSprite, gModuleProperties.pName, [#leftOffset: 0, #topOffset: 0])
  17.   reservedTopArea = sprite(currentSprite + 1).rect.bottom
  18.   currentSprite = currentSprite + 2
  19.   if gMovieProperties.pButtonPlacementType = 1 then
  20.     if gModuleProperties.pCurrentPage > 1 then
  21.       PlaceButton(currentSprite, member("Previous up"), script("PrevNextModulePage").new("previous"), gModuleProperties.pButtonLocationsList[#previous])
  22.       currentSprite = currentSprite + 1
  23.     end if
  24.     if gModuleProperties.pCurrentPage < gModuleProperties.pNumPages then
  25.       PlaceButton(currentSprite, member("Next up"), script("PrevNextModulePage").new("next"), gModuleProperties.pButtonLocationsList[#next])
  26.       currentSprite = currentSprite + 1
  27.     end if
  28.     PlaceButton(currentSprite, member("Back up"), script("BackBehavior").new(), gModuleProperties.pButtonLocationsList[#back])
  29.     sprite(currentSprite).scriptInstanceList.add(2, script("ConfirmBehavior").new())
  30.     reservedBottomArea = stageHeight - sprite(currentSprite).rect.top
  31.     currentSprite = currentSprite + 1
  32.     PlaceButton(currentSprite, member("Save up"), script("ModuleSaveBehavior").new(), gModuleProperties.pButtonLocationsList[#save])
  33.     currentSprite = currentSprite + 1
  34.     PlaceButton(currentSprite, member("Print up"), script("ModulePrintBehavior").new(), gModuleProperties.pButtonLocationsList[#print])
  35.     currentSprite = currentSprite + 1
  36.     PlaceButton(currentSprite, member("Quit up"), script("QuitBehavior").new(), gModuleProperties.pButtonLocationsList[#quit])
  37.     currentSprite = currentSprite + 1
  38.     pdf = gModuleProperties.pPagesList[value("#p" & gModuleProperties.pCurrentPage & "pdf")]
  39.     if not voidp(pdf) then
  40.       PlaceButton(currentSprite, member("Launch up"), script("directOSopenFile").new(gMovieProperties.pMediaFolder & "pdf" & gMovieProperties.pFileDelimiter & pdf), gModuleProperties.pButtonLocationsList[#launch])
  41.       currentSprite = currentSprite + 1
  42.     end if
  43.   else
  44.     if gMovieProperties.pButtonPlacementType = 2 then
  45.       if gModuleProperties.pCurrentPage > 1 then
  46.         PlaceButtonAndText(currentSprite, member("style1 up"), "Previous", script("PrevNextModulePage").new("previous"), gModuleProperties.pButtonLocationsList[#previous])
  47.         currentSprite = currentSprite + 2
  48.       end if
  49.       if gModuleProperties.pCurrentPage < gModuleProperties.pNumPages then
  50.         PlaceButtonAndText(currentSprite, member("style1 up"), "Next", script("PrevNextModulePage").new("next"), gModuleProperties.pButtonLocationsList[#next])
  51.         currentSprite = currentSprite + 2
  52.       end if
  53.       PlaceButtonAndText(currentSprite, member("style1 up"), "Back", script("BackBehavior").new(), gModuleProperties.pButtonLocationsList[#back])
  54.       sprite(currentSprite).scriptInstanceList.add(2, script("ConfirmBehavior").new())
  55.       reservedBottomArea = stageHeight - sprite(currentSprite).rect.top
  56.       currentSprite = currentSprite + 2
  57.       PlaceButtonAndText(currentSprite, member("style1 up"), "Save", script("ModuleSaveBehavior").new(), gModuleProperties.pButtonLocationsList[#save])
  58.       currentSprite = currentSprite + 2
  59.       PlaceButtonAndText(currentSprite, member("style1 up"), "Print", script("ModulePrintBehavior").new(), gModuleProperties.pButtonLocationsList[#print])
  60.       currentSprite = currentSprite + 2
  61.       PlaceButtonAndText(currentSprite, member("style1 up"), "Quit", script("QuitBehavior").new(), gModuleProperties.pButtonLocationsList[#quit])
  62.       currentSprite = currentSprite + 2
  63.       pdf = gModuleProperties.pPagesList[value("#p" & gModuleProperties.pCurrentPage & "pdf")]
  64.       if not voidp(pdf) then
  65.         PlaceButtonAndText(currentSprite, member("style1 up"), "Launch PDF", script("directOSopenFile").new(gMovieProperties.pMediaFolder & "pdf" & gMovieProperties.pFileDelimiter & pdf), gModuleProperties.pButtonLocationsList[#launch])
  66.         currentSprite = currentSprite + 2
  67.       end if
  68.     end if
  69.   end if
  70.   introText = gModuleProperties.pPagesList[value("#p" & gModuleProperties.pCurrentPage & "intro")]
  71.   if not voidp(introText) then
  72.     gModuleProperties.pSmallTextMember.font = gMovieProperties.pMainFont && "*"
  73.     gModuleProperties.pSmallTextMember.text = introText
  74.     if gMovieProperties.pTextParsing then
  75.       ParseMember(gModuleProperties.pSmallTextMember)
  76.     end if
  77.     sprite(currentSprite).member = gModuleProperties.pSmallTextMember
  78.     sprite(currentSprite).ink = 36
  79.     sprite(currentSprite).loc = point(28, 109)
  80.     sprite(currentSprite).scriptInstanceList.add(script("TextScrollingController").new(currentSprite + 1, scrollingElementWidth))
  81.     currentSprite = currentSprite + 5
  82.   end if
  83.   questionText = gModuleProperties.pPagesList[value("#p" & gModuleProperties.pCurrentPage & "Question")]
  84.   if not voidp(questionText) then
  85.     gModuleProperties.pQuestionTextMember.font = gMovieProperties.pMainFont && "*"
  86.     gModuleProperties.pQuestionTextMember.text = gModuleProperties.pPagesList[value("#p" & gModuleProperties.pCurrentPage & "Question")]
  87.     if gMovieProperties.pTextParsing then
  88.       ParseMember(gModuleProperties.pQuestionTextMember)
  89.     end if
  90.     sprite(currentSprite).member = gModuleProperties.pQuestionTextMember
  91.     sprite(currentSprite).ink = 36
  92.     sprite(currentSprite).loc = point(241, 120)
  93.     sprite(currentSprite).scriptInstanceList.add(script("TextScrollingController").new(currentSprite + 1, scrollingElementWidth))
  94.     currentSprite = currentSprite + 5
  95.     gModuleProperties.pAnswerTextMember.font = gMovieProperties.pMainFont && "*"
  96.     gModuleProperties.pAnswerTextMember.text = gModuleProperties.pPagesList[value("#p" & gModuleProperties.pCurrentPage & "Answer")]
  97.     if gMovieProperties.pTextParsing then
  98.       ParseMember(gModuleProperties.pAnswerTextMember)
  99.     end if
  100.     sprite(currentSprite).member = gModuleProperties.pAnswerTextMember
  101.     sprite(currentSprite).color = rgb(0, 0, 0)
  102.     sprite(currentSprite).scriptInstanceList.add(script("AnswerBoxScript").new())
  103.     sprite(currentSprite).loc = point(241, 301)
  104.     sprite(currentSprite).scriptInstanceList.add(script("TextScrollingController").new(currentSprite + 1, scrollingElementWidth))
  105.     currentSprite = currentSprite + 5
  106.   end if
  107.   otherText = gModuleProperties.pPagesList[value("#p" & gModuleProperties.pCurrentPage & "text")]
  108.   if not voidp(otherText) then
  109.     imageToPlace = gModuleProperties.pPagesList[value("#p" & gModuleProperties.pCurrentPage & "Image")]
  110.     videoToPlace = gModuleProperties.pPagesList[value("#p" & gModuleProperties.pCurrentPage & "Video")]
  111.     if not voidp(imageToPlace) or not voidp(videoToPlace) then
  112.       sprite(backgroundSprite).member = "screen2"
  113.       cTextMember = gModuleProperties.pSmallTextMember
  114.     else
  115.       sprite(backgroundSprite).member = "screen3"
  116.       cTextMember = gModuleProperties.pLargeTextMember
  117.     end if
  118.     cTextMember.font = gMovieProperties.pMainFont && "*"
  119.     cTextMember.text = otherText
  120.     if gMovieProperties.pTextParsing then
  121.       ParseMember(cTextMember)
  122.     end if
  123.     sprite(currentSprite).member = cTextMember
  124.     if not voidp(imageToPlace) or not voidp(videoToPlace) then
  125.       sprite(currentSprite).loc = point(28, 109)
  126.     else
  127.       sprite(currentSprite).loc = point(28, 109)
  128.     end if
  129.     sprite(currentSprite).scriptInstanceList.add(script("TextScrollingController").new(currentSprite + 1, scrollingElementWidth))
  130.     currentSprite = currentSprite + 5
  131.   end if
  132.   summaryText = gModuleProperties.pPagesList[value("#p" & gModuleProperties.pCurrentPage & "Summary")]
  133.   if not voidp(summaryText) then
  134.     sprite(backgroundSprite).member = "screen3"
  135.     summaryList = gModuleProperties.pPagesList[value("#p" & gModuleProperties.pCurrentPage & "Summary")]
  136.     gModuleProperties.pLargeTextMember.font = gMovieProperties.pMainFont && "*"
  137.     gModuleProperties.pLargeTextMember.text = "<b>Summary</b>" & RETURN & RETURN & gModuleProperties.GetSummaryForPages(summaryList)
  138.     if gMovieProperties.pTextParsing then
  139.       ParseMember(gModuleProperties.pLargeTextMember)
  140.     end if
  141.     gModuleProperties.pLargeTextMember.fontSize = gMovieProperties.pMainFontSize
  142.     gModuleProperties.pLargeTextMember.word[1].fontSize = gMovieProperties.pMainFontSize + 2
  143.     sprite(currentSprite).member = gModuleProperties.pLargeTextMember
  144.     sprite(currentSprite).loc = point(241, 120)
  145.     sprite(currentSprite).ink = 36
  146.     sprite(currentSprite).scriptInstanceList.add(script("TextScrollingController").new(currentSprite + 1, scrollingElementWidth))
  147.     currentSprite = currentSprite + 5
  148.   end if
  149.   imageToPlace = gModuleProperties.pPagesList[value("#p" & gModuleProperties.pCurrentPage & "Image")]
  150.   if not voidp(imageToPlace) then
  151.     currentMem = member("Image", 1)
  152.     filePath = gMovieProperties.pMediaFolder & "Images" & gMovieProperties.pFileDelimiter & gModuleProperties.pPagesList[value("#p" & gModuleProperties.pCurrentPage & "Image")]
  153.     if currentMem.fileName <> filePath then
  154.       currentMem.fileName = filePath
  155.     end if
  156.     sprite(currentSprite).loc = point(322, 184) + point(member("orientationImage").width / 2, member("orientationImage").height / 2) - point(member(currentMem).width / 2, member(currentMem).height / 2)
  157.     sprite(currentSprite).member = member(currentMem)
  158.     currentSprite = currentSprite + 1
  159.   end if
  160.   videoToPlace = gModuleProperties.pPagesList[value("#p" & gModuleProperties.pCurrentPage & "Video")]
  161.   if not voidp(videoToPlace) then
  162.     currentMem = member("Video", 1)
  163.     videoSprite = currentSprite
  164.     filePath = gMovieProperties.pMediaFolder & "Videos" & gMovieProperties.pFileDelimiter & gModuleProperties.pPagesList[value("#p" & gModuleProperties.pCurrentPage & "Video")]
  165.     if currentMem.fileName <> filePath then
  166.       currentMem.fileName = filePath
  167.       currentMem.controller = 0
  168.       playMovie = 1
  169.     end if
  170.     sprite(currentSprite).loc = point(201, 276)
  171.     sprite(currentSprite).member = currentMem
  172.     sprite(currentSprite).member.directToStage = 0
  173.     if voidp(playMovie) then
  174.       sprite(currentSprite).movieRate = 0
  175.     else
  176.       sprite(currentSprite).movieRate = 1
  177.     end if
  178.     currentSprite = currentSprite + 1
  179.     placeVideoControls(currentSprite, point(58, 439), videoSprite)
  180.     currentSprite = currentSprite + 3
  181.     CreateVideoSlider(currentSprite, videoSprite, point(201, 406))
  182.     currentSprite = currentSprite + 2
  183.     sprite(videoSprite).volume = gMovieProperties.pCdVolume
  184.     CreateVolumeSlider(currentSprite, videoSprite, point(321, 439))
  185.     currentSprite = currentSprite + 2
  186.   end if
  187. end
  188.  
  189. on placeVideoControls cSprite, cloc, cVideoSprite
  190.   PlaceButton(cSprite, member("Rewind up"), script("RewindVideoBehavior").new(cVideoSprite), cloc)
  191.   cSprite = cSprite + 1
  192.   cloc = cloc + point(31, 0)
  193.   PlaceButton(cSprite, member("Play up"), script("PlayVideoBehavior").new(cVideoSprite), cloc)
  194.   cSprite = cSprite + 1
  195.   cloc = cloc + point(31, 0)
  196.   PlaceButton(cSprite, member("Pause up"), script("PauseVideoBehavior").new(cVideoSprite), cloc)
  197. end
  198.